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001514 _ 


004515. 
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001563 


002164-° 


TS15 


TS30 


CNTR 
TSCi 
ADTi 
TBLi 
ADT? 
TBL2 


JAZ 


p INR 
1 IMP 


ph OA 
CALL 


,STA 
;HLT 


TEST 
ep OX 


e108 
LDA 


a JAN 


eCALL 


STA 
e IXR 
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EBCOIC VALUE 
HOLLERITH AND ASCII TABLE 


EBCOTC TABLE 


00300 


09310 
00320 


90330 
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002632 600100 | »OATA 79100 ROW 3 PUNCH 3 BIT 6 00756 
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00970 
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01060 
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002652 053127 yROW re en re errs: rare ener e earn, 16 116-9 17 11«7«9 oe 01240 
002653° 150321 eROW SePrirernrcrere entre enre | 48 {1-89 19 {iwi =8=9 01250 
002654 1514323 »RQOW phe de Op de De 2plede Oe ,908 iA {1=#2589 1B {i389 01260 
002655 152325 »ROW pede Dede DeAndre Ont eOe5 IC 1194e8a9 1D 1159889 01270 
002656 133327 ,»ROW plete Delp Dp Spd e hp O0150,7 1E 11=6=«829 1F {i-7e8=9 01280 

' 902657 164541 pROW etoleOehde dete God ep OeOniel 20 11-001 98a9 21 Omlad ~~ 01290 
002660 0451413 ROW 099159 ,0p172e051,0,0,1,3 22 O»2@9 23 Oe3u9 01300 
002661 0461415 »ROW 6p 45090, 17 4-00170,0,1,5 24 QudwQ 25 Oa md 61310 
002662 047117 2ROW re ore eka re eer eee wed 26 0=6"9 27 O«7 99 01320 
002663 144311 © @ ROW tere De Ded ep Oed ade OeOpl pd 28 Ombud 29 QeloB<9 01390 
002664 145313 ROW pied eGo Oele2elp te Oe0,1,5 2A OwmQa Gnd 2B Qa3e8ad 01340 
002665 146315 7ROW ede dr De Onde 4p tele Op Op1,5 20 QednGnd 20 0#5aba9 91950 
002666 447317 ,ROW adore De Oph pelo lp OeOet,7? 2E OnG=8=9 2F Ce7 #829 01960 
002667 174501 ROW eLoletody dete Op22070,0,1 30 Lei wOmleBeS 31 199 01570 
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902703 164244 2ROW piede de Op he%e4700129,0,1 48 1200989 AQ {Quai 04490 
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002716 113227 2ROW 049050945976 54.00001,9,7 SE 119688 5F [1798 01600 
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487337 
004001 
001008 
062005 
—6008007 
100100 
475373 
176375 
477377 
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»ROAW 
7ROW 


eROW. 


ROW 
7ROW 
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7ROW 


ROW 
Pp ROW 
ROW 


7ROW 
»ROW 


“(ROW 


7ROW 
ROW 
ROW 
eROW 
eROW 
ROW 
7RQW 
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»ROW 
7ROW 
ROW 
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,ROW 
sROW 
»ROW 
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02070 
o208C 
02090 
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02120 
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02140 
02150 
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02170 
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02210 
02220 
n2230 
02260 
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02290 
02300 
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02330 
02340 
02350 
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02370 
02380 
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903037 


003040. 


003041 
905042 
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003044 
003045 
0035046 
003047 
003050 
003051 
909052 
— 903083 
—6008054 
003055 
003056 
003057 
003060 
003061 
003062 


003663. 
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000012 


900000. 


063116 
073121 
005002 
004257 
001002 
003047 
111011 
053117 


151012 
OO1010 | 


003971 
053120 
031013 
005122 
009144 
013120 
{55600 
901010 
003955 
138120 
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$B01 


8802 


SBOS 


HOLLERITH TO EBCOIC CONVERSION (SB01) 


SBO1 CONVERTS A {2e8IT O29°HOLLERITH CHARACTER IN THE 
AveREGISTER TO ITS EQUIVALENT BeBIT ERCDIC CODE IN THE 
AsREGISTER, THE B AND X REGISTERS WILL BE SAVED UPON 
ENTRANCE ANO RESTORED UPON EXIT, 


CALLING SEQUENCES | 
029 HOLLERITH CODE IN A@REGISTER 


CALL CONVERT HOLLERITH TO EBCOIC 
NORMAL RETURN EBCOIC CODE IN AwREG, 


Pmt LDA VALUE 
p JMPM SBO] 
Pe2 (ANY INSTRUCTION) 


THE AeREGISTER IS SET TO MINUS ONE 


(#1) WHEN THE INPUT HOLLERITH CODE IS 


INVALIO (YE,, MORE THAN ONE ROW 
PUNCHED IN ROWS 1 THROUGH 7), 


eENTR 9 | . ; 

ests 28881 SAVE 8 REGISTER 

eSTX 18884 SAVE X REGISTER 

2126 . SET FIELD 1 POINTER FOR NO PUNCHES 

sLRLA ,18 ROW 9 TO SIGN POSITION 

p JAP 8802 Qo, ROW 9 PUNCHED 

,ORA #04000 YES IDENTIFY ROW 9 INPUT (ABITIL181) | 
»STA $882 ‘ SAVE INPUT (BITiie0 IF NO ROW 9 PUNCH) 
, ANA 220376 Qe ANY ROWS 197 PUNCHED 

pJAZ 8804 NO 

STA ,8883 YES SAVE ROWS 187 

eLOX »2SBTi ; ADDRESS OF SBT1 TABLE TO X=REGISTER 
,1SR F SEY FIELM 4 POINTER FOR NEXT ROW * 3 
,TXR INCREMENT SBT1 ADORESS 

»LDA 28683 ROWS Je? INPUT 

,ANA ,0,X Qe 18 ROW INDEXED BY BeREGISTER PUNCHED. 
JAZ , 8803 NO . 

ERA ,SBS3 Gy INVALID INPUT VALUE (MULTIPLE PUNCH 


” 


02420 

02430 
02440 — 
02456 

02460. 
02470 
02480 
02490 


02500 


02510 
02520 | 
02530 
02540 
02550 
02560 
02570 
02580 
02590 


OH2600 © 


n2610C 
o262¢ 
02630 
02640 
02650 
02660 
02670 
02680 


02690 
62700 
02710 
02720 


92730 
62740 
027506 
02760 
2776 
92786 
C2aF790 


GARGS 


— 
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003064 
003065 
003066 
003067 
003070 
003071 
003072 
003073 
003074 
003075 
003076 
003077 
003100 


005101 | 


003102 
005108 


° 
9000013 


001010 
003071 
005304 
001900 
003112 
063120 
013417 
151014 
004345 
123120 
121015 
005012 
026000 
005104 
(53417 


001010 


003104. 


003105 
003106 
003107 
—6 003110 
O0O31414 


003112. 


009115 
— 005114 


005115. 
6003116. 


005117 
903120 
003121 


OOS1L! 
005021 


451001 


001000 
005112 
004450 
029116 
055121 
001000 
193037 


R 
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S804 


$805 


$806 


~SBSt 


SBS2 
S835 
SBS 4 


78804 


yt 
»8BO06 
286883 
»8882 
2207400 
5 
,88S83 
,=88T2 


8 
29,8 
OL 


2SBS2 


8805 


a 
» 20377 
78806 


TEMPORARY 


© 


NO . ROWS 1#7) 


YES 
GO TO RESTORE B,X REGISTERS 


SAVE FIELD 1 POINTER 

INPUT CMODIFTED) 

ISOLATE CARD ROWS 9,12,11,0 

POSITION TO FIELD 2 

ADD FIELOS 4 AND 2 TO FORM TABLE ADORESS. 


ADDRESS OF SBT2 TABLE TO X=REG!STER 


TABLE ADDRESS TQ INDEX REGISTEFRB 
2 PACKED EBCOIC CHARACTERS TO HwREGISTER 
Q, IS ROW 8 PUNCHED 


NO 


YES EBCDIC CHARACTER IN BITS (m7 OF PACKED 
» WORD TO A»REGISTER 
SKIP TO $B06 


EBCDIC CHARACTER IN BITS 6e15 i)F PACKED 
RESTORE B REGISTER 

RESTORE X REGISTER 

« WORD TO AwREGISTER AND RETURI: 


STORAGE 1 = B REGISTIR 
TEMPORARY STORAGE 2 = MODIFIED COLUMN INPUT 
TEMPORARY STORAGE 3 = ROWS 1=7, FIELD 1 PTR 
TEMPORARY STORAGE 4 » X REGISTITR SAVE 


SET ERROR CONDITION, NEGATIVE NO, TO A. 
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* © &£ bh © © & & © © & © © & & & & & & we we HF 03070. 
* - : | | 83080 
a TABLE SBT1 © THE PROGRAM LOOPS ARQUND SB03 TO SET AN INDEXABLE ~ 03090 
we COUNT IN THE BeREGISTER BASED ON THE PUNCHED ROW $3100 
al i-7 OF THE INPUT OATA, MASKED INPUT OF ROWS 1"7 08110 
1 IS COMPARED TO EACH ELEMENT OF SBT2 UNTIL A MATCH 18 03120 
Z FOUND, THE BeREGISTER WHICH IS INITIALIZED TO ZERO, | $3130 
i IS INCREMENTED BY 1 FOR EACH COMPARISON UNTIL A 03140 
* MATCH IS FOUND, THE S803 LOOP IS BY*#PASSEO TF THERE 03150 
* TS NO i=7 ROW PUNCH, |  o 03160 
* - | ; 03170 
re a 03180 
003122 | SBT{ ,BES el . ue O3190 
0031253 000200: »DATA ,9200 ROWSCOUNT#i  — : 2 032900 
003124 900100 oa eDATA 29100 ROWBCOUNTe®2 = . oe 63210 
— 905125 000040 eDATA 99040 . ROWSCOUNTES | . . 7 | 03220 
003926 «000020 »DATA ,0020 > ROWSCOUNTS4 - Ae 03230 
903427) 000010 ps DATA 20010 ROWSCOUNT aS ces a 03240 . 
O03130 000004  ,DATA  ,0004 —ROWSCOUNTRE | 3 05250 


003131 900002 — gDATA =, 0002 — ROWECOUNT#?7 | | - 03260 


r.) 7 a O . : : | - 0 
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eo @ & © &© © & © & & © 8 © H % wh we & ww & & & & 03280 
a | - 03290 

* TABLE SB8T2 THIS TABLE IS UTILIZED TO FETCH THE NESIRFEN ESCOIC 03306 © 
* CHARACTER AFTER THE O29"HOLLERITH INPUT 18 TRANSLATED Q3SS10 
ow INTO AN INDEX VALUE (18128), THE TABLE IS PACKED TWO 03320 
* CHARACTERS PER WORD, THE BITS 8-15 CONTAINS THE A3S30 
% EBCPIC CHARACTER FOR THE 029 INPUTS WITHCIUT AN | 03340 
we S=PUNCH, BITS Ge? CONTAINS THE EBCOIC CHARACTER FOR 03350 
# THE 929 INPUTS WITH AN SePUNCH, FOR ANY UNDIVIDUAL - 038606 
« WORD IN THE TABLE THE CARD INPUT ASSOCIA‘VED WITH IT 03370 
” OIFFERS ONLY BY TRE ABSENCE OR PRESENCE CIF AN S@PUNCH 03380 
* . 03390 
ee ee ee | 03400 
* 03410 
" COLUMNS COLUMN HEX 03420 
oe w 89412 411 =O PUNCHES CODE: O3436 
003132 040370 SBT2 ,DATA » 00403790 ® 0 9 Q 1,498 Fi,7!) 03440 
003433 470571 pDATA ,O470874 ® 0 0 9 -4£,198 Fi,7% 03480 
(003134 171172 pOATA =, OL7 4172 0 0 0 0 2,288 F2,7\ 03460 
«903138 174573 pOATA 20171573 © 0 0 Q 3,5=8 F3,73 03470 
005136 472174 eDATA 00472174 0 0 4 9 4,48 F4,7:° N348¢ 
003137 172575 | »DATA ,0172878 0 0 6 0 5,508 F5,7) 03490 
. 003140 173176 pQATA 69173176 8 0 0 Q 6,698 F6,7 = 035006 
003444 «173577 pDATA = 0173577 oo aw 8 ts Bee. eae 
903142 «170350 | ,DATA 0170350 00 0 4 BLANK, 8 FO,E3 03520 
. 903443 660851 . eDATA » 00660581 oO 0@ 4 | 1,18 61,69 : 63536 
003144 161540 DATA 60161340 ® @ 6 2,298 E2,E0 | Q3546 
6008145) «6461558 ,DATA 90161553 a @ Oo 4 3,348 F3,63 03850 
603146 462154 pQATA 20462154 6 0 60 f 4,498 —« EA, BE O3860 
963147 (62555 pDATA 20462855 o @ @ | 5,58 E5,65 63870 
0031560 163156 pQATA 70168156 o 0 4 | 6, 6"8 E6,6E 63880 
003151 169557 eDATAa 29168557 ® 0 6 4 7,78 E?7,8F oe O35906 
003152 066330 pDATA 29060330 ¢ 0 1 9 BLANK ,8 ~ 69,1N8 : A3é&aa 
qs - 003153 180531  ~._,DATA. _,0156531. o GG it QO 1,14=8 04,59 ~ 03616 
= OO8154 151102 -- g DATA eO1S514382- — O .O2 dQ 2,298 . D2,8A : 03620 
QOS155 1591598 2OATA 20184588 9 O 1 Q 3,988 03,36 O3630 
003186 (52134 pOATA 201821354 9 696 1 @ 4,48 Na,& O36 40 
008457 4823385 ,D4TA 29152535 6 Oo 1 Q 5,58 . O5,20 . C3650 
003160 1531356 eDATA 29185436 © 9 i 4 6,68 P6,FE O365¢ 
003164 458537 pDATA 9153537 8 0 & @ 7,7=8 D7 SF = O3670 
003162 156250 {DATA = 0150256 00141 BLANK, 8 no, 48 03680 

oO O° f° 4 


QO03165 120649 © pDATA 70120640 1,48 (AL, EO : O3EOO 
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003164 
0038165 © 


003166 
(003167 


003170 


OO3171 
003172 
003173 
003174 
003175 
003176 
003177 
903200 
003201 
(003202 


003203 
— «903204 


603205 


003206. 


003207 
003210 


005211. 
903212 
903243 


003214 
005215 


903216 


003217 


003220 


003221 
003222 
003223 
903224 


0032285 


003226 
. 003227 
003230 
003231 
003232 
003233 
003234 
003235 


000016. 


121252 
121653 
122254 
122655 
123256 
123657 
050310 
140511 
141112 


44t5is. 


142114 
142515 
143116 
143517 
140210 
40.9600 
101212 
1014615 


102615 
103216 
103617 
065250 
~ 110620 

£11252 

1116338 


£12234 


£12635 
1143236 
113637 
070279 
130660 
131272 
131673 
132274 
132675 
133276 
433677 
174470 
030471 
031072 
031473 


Oo 


{e224 


29121252 © 
99121653 
90122254 


29422655 
20423256 


20123657 © 
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pOL41112 
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20143116 
20143517 
00140210 
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20101645 


00102244 


90102615 
20105216 


9 0403617 


10065230 
20110620 
29411282 


“pOLLL633 


20442234 


(90412635 


20413236 
20413637 
»0070270 
70130660 
29131272 
20131673 
20132274 
99132675 
20133276 
70133677 
70174470 
,0030471 
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DOOD ee ee eee eee eee ODOO008D90900 009 00" mmm 
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2,2n8 


3,398 
4,428 
5,5=8 


6,688 
, 7,738 
BLANK, 8 


1,in8 
2,298 
3,3=8 
4,4=8 


5,508 


6,698 


7,748 
BLANK, 8 

hehe’ 
(2,28 


923"8 


4, 4-8 


§,5=8 


6,6=8 


7478 
BLANK 


1,1=8 
2,298 
3,398 


4, 4n8 


5,58 
6,§«8 
7,798 
BLANK,8& 
1,18 


2,298 


3,3"8 
4,498 
5,5=8 
6,6=8 


; 7,708 


BLANK,8 
{,1«8 
2,28 


3528 


AB, AA 
AS, AB 


Aa, AC 
A5,AD 


AG, AE. 


A7,AF 
50,C8@ 
Ci,49 
C2,4A 
C3,48 


C4,4€ 


C5,40 
C6,4E 
C7,4F 


C0,88 
84,80 
82,84 


83,88 
84,8C 
85,80 


 86,58E 
87,8F. 
64,98 


94,90 
92,94 
93,98 


94,9C | 


95,90 
96,96 
97,9F 
70,88 
Bi,80 


82,BA 
~83,8B 


B4,BC 
85,8) 
B6,BE 
B7,B8F 
F9,38 
31,39 
32,34 


33,38 
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003236 
003237 
003240 
003241 
003242 
003243 
003244 
003245 
003246 
003247 


003250 


003251 
003252 
003253 
003254 
003255 
003256 
003257 
003260 
003261 
003262 
003263 


003264. 


003265 
003266 
003267 
003270 
003271 


 90s278 


003273 
003274 
003275 
003276 
003277 
003300 
003301 
003302 
003303 
003304 
003305 
003306 
003307 


000017 


032074 
032475 
033076 
033477 


164450 


020451 
021052 
021453 


022054 


922455 
023056 
023457 
154430 
910431 
011032 
641433 
012034 
612435 
0130356 


0193437 — 


124550 
160440 
061352 
061753 
062354 
062795 
063356 
063757 
144410 
000411 
0041012 
001413 
002014 
002415 
003016 
003417 
104510 
040400 
041412 
041713 
042314 
042715 


| DATA 
DATA 


»DATA 


DATA 


,DATA 
,DATA 


DATA 
pDATA 
— «p DATA 


sDATA 
/DATA 


7 DATA 


»DATA 


Pp DATA 
eDATA 
gp DATA 


eDATA 
pDATA 


DATA 


,DATA 


DATA 


,DATA 


DATA 


»DATA 
;DATA 


DATA 


»DATA 
,OATA 
»DATA 
,DATA 
,DATA 
»DATA 


pOATA 


pQATA 
,DATA 
»DATA 
,DATA 
»DATA 
»DATA 
,DATA 


DATA 


»DATA 


,0032074 
,0032475 
,0033076 


69035477 


201644350 
290204514 
79021052 
20021458 
29022054 
20022458 
, 0023056 
20028457 
29154430 
09010431 
20011032 
20011433 
29042034 
,0012435 
, 0013036 
70013437 
10124850 
, 0160440 


0061352 


29061753 
,0062354 
,0062754 
» 0063356 
20063757 
29144616 
200004144 
29001042 
70001418 
29002014 
, 0002445 
200030186 
29003447 
,0104540 
79940400 
29041312 
29041718 
0042344 
»OO427158 


oO 


ee ee oo 8 ont olo ior lon - 5-8-0 - 0-6 - 0-5-8 - 8-8-8 - 5-0 - 8-9-0 re 


Oo vo oo 8 C380 880390 we Pre PP TOT Pee eee OoOoO COCO COCO CO OTC So 


aaa Cee ne ee renehe RE Be 2 2 ee neke hee Rees 2 ee ere ne 


4,48 


5,598 


6,68 
7,78 
BLANK,8 
1,18 
2,288 
3,378 
4,498 
5,598 
6,668 
7,78 
BLANK,& 
1,18 
2,298 
3,398 
a, 498 


§, 58 


6,68 
7,78 
BLANK ,§ 
1,108 
2,28 
3,398 
4,498 
5,58 
§, 68 
7,798 


BLANK,8 


1,18 
2,278 
3,328 


4, 408 


5,58 
6,68 
7,738 
BLANK,& 
1,178 
2,298. 
3, 3°8 
4,48 
5, 5=8 


oO 


04120 
04130 
04140 
04150 
04160 
04170 
04180 
04190 
04200 
04210 
64220 
04230 
04240 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 
04340 
04350 
04360 
OA370 
04380 
04390 
04400 
04410 
04420 
04430 
04440 


O4450 © 


C4460 
04470 
O4480 
04490 
04500 
N4516 
O4b2¢ 
045340 
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003319 
OO3311 
003312 
003343 
003314 
003315 
003316 
003317 
903320 
003321 
003322 
003323 
003324 
003325 
003328 
003327 
003330 
003331 


000020 


O43316 


043717 
414530 
050420 
051332 
051733 
082334 
052735 
053336 
053737 
134570 
070480 
071372 
071773 
0723574 
072775 
073376 
073777 


pQATA 


,DATA 
pDATA 
pDATA 
,DATA 
pDATA 
eDATA 
pDATA 
pDATA 
2QaTa 
,DATA 
eDATA 
sDATA 
pDATA 
»DATA 


2DATA — 


2QATA 
pDATA 


,O943316 
190043717 
29114530 
09050420 
70051332 


-, 0081733 


,0052334 
20052735 
20053336 


40053737 - 


70134570 
,0070460 
29071372 
09071773 
29072374 
29072775 
»90733786 
290738777 
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weer rmmrer OF O O00 O07 0 DO re 


8,6=8 
7,798 
BLANK,8 
1,198 
2,28 
3, 3-8 
4,498 
3,58 
6,698 
7» 7 #8 
BLANK,8 
teins 
2,278 


«by a8 


4,498 
§,598 
6,88 


7798 


46,CE 


47,CF 
91,58 
54,19 
52,04 
53,08 
54,0¢ 
55,00 
56,0€ 


87,0F 


B9,78 
74,930 
72,FA 
73,F8 


—74,PC. 
75,F0 


76,FE 
77,°F 


04540 © 


04550 
04560 
04570 


~—6 4880 


04590 
04600 
04610 


04620 


14430 
04640 — 
04650 | 
04666 


04670 


04680 


04690 


04700 


04710 
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i e  , ~ 04730 
* ppereey ee ae CONVERSION (S8C€01) _. ie 04750 
: 7 | —— | | 04766 
* 04770 
* scot CONVERTS AN 8@BIT EBcoIc CHARACTER IN THE AeREGISTER 04780 
TO ITS EQUIVALENT 6-BIT ASCIY CODE (YF ANY) !N THE 04790 - 
* AREGISTER, | | 04800 
* THE BeREGISTER IS SAVED UPON ENTRANCE AND RESTORED UPON 04810 
” oe EXIT. THE X@REGISTER IS NOT USED, : 04820 
® | - (04830 
" CALLING SEQUENCE: ~— | : . - : 04840 
” | | : : 04850 
+ Pei LDA VALUE €BCOIC CHAR IN BITS 07 | 046860 
+ P  JMPM SCO4 CALL CONVERT EBCOre TO ASUIT 04870 
1. Pe2 (ANY INSTRUCTION) NORMAL RETURN ASCIT CODE IN. | 04880 
* — «AWREG BITS 007 _ | | 04890 
* ae eee | | | 04900 
x NOT ALL EBCOIC CHARACTERS ARE CONVERTASLE, THERE ARE 04910 
* @56 LEGAL EBCDIC CHARS BUT ONLY 63 ASCIT CHAIS, THE 04920 
* CONVERTABLE EBCDIC INPUTS ARES , —  =94930 
* | ? 04940 
eee ee eee | oe CLet9 | 94950 
* 4Aw4F 04960 
. 50 DieDg9 049706 
a SAeSF : 049480 
® 60961 E2=mE9 . Gg 64990 
” 6B@GF 05000 
" TA@7F FO«F9 | O5010 
” _ | A at 05020 
’ A NON@CONVERTABLE INPUT VALUE RESULTS IN A RETURN 05030 
7 TO THE CALLING PROGRAM WITH THE ACCUMULATOR VEGATIVE, | 05040 
ae | San | | -_ 05050 
a NOTE: SOME LINE PRINTERS ALLOW ONLY 7*BIT ASCII WITH THE MOST 08060 
x SIGNIFICANT BIT BEING USED FOR PRINT CONTROL, IF OTHER 05070 
oo THAN BeBIT ASCII CODE IS DESIRED, THIS SUBROJTINE SHOULD A5NBO 
* BE MODIFIED AS FOLLOWS! 05090 
* EITHER =» 4) MODIFY TABLE set2 Ta INCLUDE DESIRED CODES 05100 
* oR — O5110 
i 2) INSERT AN APPROPRIATE MASK INSTRUCTION AT 05120 
* LOCATION SC30*1, | | 981450 
& 


08140 


003332 


PAGE. 


003533 


003335 


003336 
003357 


003340 


003541 


003542. 


003343 


003344 
003345 


003346 
003347 
003350 


003351 
. 003352 


903353 


003554 


| 903355 
903356 
003357 
003360 


003364 
(003362 


003363 


003364 
003365 
003556 


003367 


003370 
003371 
003372 


— 003373 


ty 003402. 


008574 


0035375 
003376 
003377 
003400 
003401 


000022 


000090 
063412 
0534138 
004251 
001004 


903343 | 


005301 
001000 
003406 


01341435 — 


151016 
119441 
033364 
0194138 


004304 
151010 


121017 
008012 
019413 
004250 
001004 
003563 
016000 


001000 
003364 | 


016004 


004240 


001004 


003406. 


015415 
004301 
151026 
121021 
005012 
026000 
065101 


{53413 | 


001010 
603405 
005021 
151061 


° 


8005 


SC10 


* * Ww ke © wh & wh we we Hw eH 
ENTRANCE | = 
SAVE BeREGISTER 
SAVE EBCOTC INPUT 
Oe IS INPUT BETWEEN 40@7F OR COmFF 


"YES = BIT 6 IS SET 


NO # RETURN WITH ACCUM NEGATIVE 


| RESTORE EBCDIC CHAR TO BITS 0=7 
“BUILD SHIFT COMMAND To TEST VALIDITY OF 


e VALUE TO BE CONVERTED 


EecoIC INPUT 
CALC DISPLACEMENT INTO SCT! TABLE 
USE BITS 4 AND 5 


PUT SET! ADDRESS (OFFSET 0) INTO B REG 


EXAMINE INPUT BIT 8 
@, WHICH RANGE 4 OR C 
COeFF 


4007F 
SKIP TO $C20 


COmFF 
QM. 8 EBCOIC INPUT CHAR CONVERTIALE 
NO | 


YES » EBCDIC INPUT VALUE 
BUILD ADDRESS INTO SCT2 TO BeREG 


USE BITS ie5 


2 


a = 
2 PACKED ASCII CHARS FROM SCT2 TO BeREG 


fe IS EBCDOIC CHAR EVEN OR OAD 
EVEN 


O00 « WANT RIGHT SIDE 


¢ 


PAGE 


003403 
003404 
003405 


003406 


003407 
003410 


003411 
003412 
003413 


° 


000023 


001900 


003406 


004450 


023442 


001000 
103332 


004240 


$€25 
SC30 


Scci 
ses 
scs2 


e JUMP 


eLLRL 
708 
IMPs 


eLRLA 
,88S 
»8S88 


0. 


SKIP TO $C30 


EVEN + WANT LEFT SIDE 
RESTORE S@REGISTER 
RETURN TO CALLING PROGRAM 


SHIFT LEFT O POSITIONS 
TEMP STORAGE 1 = 8 REGISTER 


TEMP STORAGE 2 = EBCDIC INPUT VALUE | 


PAGE 000024 


ee, Se Oho] 29 0 


| 
* ©8610 
k TABLE scrt = EBCOIC INPUT BITS 4 AND 5 ARE USED AS AN INDEX INTO 05620 
« THIS TABLE WITH AN OFFSET OFF ZERO OR FOUR, AN OFFSE 05630 
J OF ZERO IS USED IF THE ESCOIC INPUT IS BETWEEN 40 AN 05640 
* 7F, AN OFFSET OF FOUR IS USEO IF THE EBCOIC INPUT IS 05650 
* BETWEEN CO AND FF, 08660 
" EACH WORD OF SCT{ CONTAINS 16 BITS WHICH REPRESENT T 05670 
ie CONVERTABLE/NON@CONVERTABLE STATUS OF EACH EBCOIC IN 065680 
* IN THE 40@7F,COmFF RANGES (OSCONVERTABLE, 12 NON= — 05690 
* CONVERTABLE),. FOR EXAMPLE? . 05700 
* = 7 thes : | : : 057106 
* . | WORD 1 (40@4F)= BIT 15580 IMPLIES EBCDIC INP 08720 
— 40 CONVERTABLE : 05730 
tt WORD 2 (50e5F)= BIT 120 IMPLIES EBCOIC INP 05740 
* i | — SE CONVERTABLE | 08750 
* WORD S (CO#CF)@ BIT Sat IMPLIES EBCOIC INP 05760 
* CA NON@CONVERTABLE 05770 
* WORD 7 (EQ=EF)= BIT 1421 IMPLIES EBCDIC INP 05780 
* El NON@CONVERTABLE 05790 
* | 05800 
ee O5810 
3-5 003414 R SETi ,&auU of ee | A5B20 
003414 077700 pDATA 1077700 AQm4F O35B36 
003415 077700 2DATA 4077700 S0eSF | ~~ 08846 
003416 037740 Hid »DATA 2037740 60—6F | 05850 
003417 177700 ,DATA 29177700 70"7F i | : 08860 
003420 100077 eDATA 29100077 COmCFr | eG | 05870 
003421 100077 DATA 90100077 DO«DF | 05880 
003422 140077 DATA 20140077 EQmEF | 05890 


003423 900077 pDATA 2077 FQmFF "sg _ 9§890 


Qa | - ; _ ; a ae) 7 ae je ° 


PAGE| 

* * * * * * ®& * * * * * ® «© 8 8 #8 %8 8 8 & 8 & ‘95920 

. ; ‘ 05930 . 
* TABLE SCT2 = THIS TABLE CONTAINS THE ASCIY REPRESENT: TIONS OF THE 05940 
w CONVERTABLE EBCDIC INPUT VALUES ARRANGEC: AS INDICATE 05950 
* BELOW IN THE COMMENT FIELOS, 05960 
* 05970 
| a. er rr N§980 
—6- 008424) «120501 SCT2 ,ODATA ep? Ad ; HEX = 40 C4 05990 
003425 1413038 pDATA »'BC! C2 C3 06000 
003426 142305 | eDATA »'DE! . C4 C5 06010 
003427 (43307 | pOATA p'FGt C6 C7 . 06020 
003430 144311 pDATA p'HTt Cs cg - 96030 
003434 1485656 . eDATA »0185656 foe 4A 4B — 46040 
003432 136250 ,DATA 29136250 < ¢ 40 40 . 6050 
~—=—=oA0038433 «6125736 | »DATA 29425736 + 4E 4aF —- 6060 
003434 2e3si12 ,DATA 29123312 g J 7 —~68O DG a 06070 
903435 4489714 rDATA = TKL! p2 03 | 06080 
003436 146716 pDaATaA =, I MNE 04 05 06090 
003437 447720 a DATA 2 OP! . 06 07 . 96100 
003440 150722 DATA , QR! 98 O09 ~—6 6410 
003441 120644 pDATA 20420644 1 §& 5A 5B . 06120 
003442 128251 DATA ,0125251 x ) 5C 50 96130 
003443 135737 pDATA ,0135737 «© SE SF 06140 
003444 126657 »OATA 201426657 « / 60 61 : A6150 
003445 181724 pDATA »'ST? | €2 ES : 061456 
~—6©008446)06 «452726 gs DATA e'uve E4 ES _ 061706 
003447 153736 pDATA e WX! E6 E7 96180 
—6003450)6 «154732 | »DATA =, tYZ? Ea E9 | 06190 
003451 000254 pDATA ,0284 ’ 68 . ; N6200 
003492 122735 2DATA 20122735 ( ] 6C 6D 06210 
003458 137277 »DATA 70137277 > 2 6E 6F 08220 
003454 1430261 | eDATA AFOUF : FQ F4 06230 
— «003455 «6131263 pDATA 123! | 3 F2 F3 , | 06240 
= 9038486) «6432265 eQaTa e'4§! F4 FS . | BAZ5O 
- 9003457 133267 eDATA p'675 FA F7 : H46260 
003460 434271 ------ ,DATA ~ , 189! : FS FO | 06270 
003461 135243 ,DATA 90135245 £ 4 7A 78 N62RBO 
003462 140247 eDATA 29140247 @ ' 7C 70 95290 
003463 136642 DATA 20136642 s " 7E 7F . H63N6 
60000 eEND e , O6S16 


LITERALS : 
001000 000400 
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001001 
001002 


901008 


— gntoo4 


901005 
904006 


901007 


001010 


001011 


901012 


001043 
 0L0L4 


001015 
001016 


001017 
001020 


001021 


POINTERS 


x 


000377 
000014 
000177 


(002637 


000007 
002627 
000079 
000003 
004000 
000376 


003122 


007400 


008132 
000917 


003414 


900037. 
003424 


003412 
003411 


003406 


003405 
003364 


005368 


005545 


003340 
- 003332 


003132 
003122 
003121 


008120 


003117 
003116 
003112 


SYMBOLS 


003424— 
003414. 
903413 


© 


8CT2 


scr 


sce 
scsi 
SCCi 
$030 
$C25 
$020 
C45 
$010 


8Co05 


scoi 
S872 
SBT 1 
SB54 
$B$3 


$BS2_ 


$881 
$BO6 
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4 003111 2 $B05 
4 003071 R $B04 
1 003055 R $803 
1 003047 R $802 
4 003037 R SBOL 
{ 002637 R saT2 
1 002627 R SaTi 
1 002626 R SAS2 
1 002625 R SAS1 
1 002605 R SAO03 
1 002604 R Sa02 
‘4 002565 R- SA0t 
1 000002 28 
1 000001 2x 
1 002164 R TeL2 
4 002165 R ADT2 
{ 001563 R TRL 
4 001562 R ADT! 
4 00156) R TSC! 
1 001560 R CNTR 
1 001557 R TS30 
4 001545 R TS20 . 
4 001536 R TSi5 
4 004521 R TS10 
1 001516 R TSOS 
1 001501 R TSO1 


